home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
basic
/
pbtool.exe
/
DAYOWEEK.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-04
|
1KB
|
38 lines
CLS
CUR.DATE$ = DATE$
MONTH = VAL(LEFT$(CUR.DATE$,2))
DAY = VAL(MID$(CUR.DATE$,4,2))
YEAR = VAL(RIGHT$(CUR.DATE$,2))
CALL DAYOFWEEK
PRINT "TODAY IS : ";DAY$
END
INPUT "ENTER MONTH :";month
INPUT "ENTER YEAR [99]:";year
INPUT "ENTER DAY :";day
CALL DAYOFWEEK
PRINT "THE DAY IS :";day$
INPUT "ANOTHER DATE ? [Y/N] ";ANSWER$
IF UCASE$(ANSWER$) = "Y" THEN
RUN
ELSE
PRINT:PRINT "PROGRAM ENDING..."
END IF
'
' To use: define day,month,year as variables holding 2 digit numbers
' (check validity first) and expect day$ to return the
' day-name for that specific date.
'--- This subroutine returns the day-name for a specified date -----
SUB DAYOFWEEK
shared month,day,year,day$
local c,j,d$()
dim d$(7):c = 19 ' c=18 for the 1800's
d$(0)="SUNDAY":d$(1)="Monday":d$(2)="Tuesday":d$(3)="Wednesday"
d$(4)="Thursday":d$(5)="Friday":d$(6)="Saturday"
month = month-2:if month<1 then month=month+12:year =year-1
j=int(2.6*month-.19)+day+year+int(year/4)+int(c/4)-2*c
j=j-int(j/7)*7
day$=d$(j)
END SUB